Public Class GenerarSolicitudDeMP
    Dim ADSolicitudesDeMP As New ADCono.SolicitudesDeMP
    Dim ADOT As New ADCono.OrdenesDeTrabajo
    Dim ADSMP As New ADCono.SilosDeMP

    Public Function ObtenerOTPendientes()
        Dim DS As New DataSet
        DS = ADOT.ObtenerOT("", "", "PN")
        Return DS
    End Function

    Public Function InsertarSolicitud(ByVal Responsable As Integer, ByVal OT As Integer, ByVal Cantidad As Integer, ByVal SiloMP As Integer)
        Dim I As Integer
        I = ADSolicitudesDeMP.Insertar(Responsable, OT, Cantidad, SiloMP)
        Return I
    End Function

    Public Function ObtenerSilos(ByVal Cod_Grano As Integer)
        Dim DS As New DataSet
        DS = ADSMP.ObtenerDisponiblesPorGrano(Cod_Grano)
        Return DS
    End Function


End Class
